home *** CD-ROM | disk | FTP | other *** search
/ 3D Images / 3D Images.iso / programs / amiga / batchfactory / scripts / adpro / adpro_embossed next >
Encoding:
Text File  |  1995-01-12  |  1.6 KB  |  67 lines
  1. /* 
  2.                          ADPRO IMAGES TO EMBOSSED
  3.                                By J.L. White
  4.                           ©1994 Merlin's Software
  5.  
  6.                            Load Image & Emboss 
  7.                          Art Department Pro Script
  8.  
  9.  Batch Factory Batch Conversion Scripts are basically Arexx scripts that
  10. allow you to pass certain parameters to the external program you wish
  11. to use to convert the images from one format to another. You can pass
  12. five different strings from Batch Factory to the script by using the
  13. following commands:
  14.  
  15. $N = This will pass the current selected filename.
  16. $P = This will tell Batch Factory to ask for a path to save new frames to.
  17. $# = This will pass the current frame number in the script.
  18. $T = This will pass the total number of frames in the script.
  19. $A = This will pass an offset number to be used to save frames with.
  20.  
  21. NOTE: The following line is required to work as a Batch Factory Script:
  22.  
  23. PARSE=$N $P $# $A
  24.  
  25. */
  26.  
  27. options results
  28. call Locate_ADPro
  29. address "ADPro"
  30.  
  31. arg TheFile OutFile FrameNum AddNum
  32. SaveNum = FrameNum + AddNum
  33. if FrameNum = 1 then adpro_to_front
  34.  
  35. lformat "UNIVERSAL"
  36. load TheFile
  37. if RC ~= 0 then do
  38.    adpro_to_front
  39.    okay1 "Error Loading" TheFile
  40.    exit
  41. end
  42. operator "negative"
  43. load TheFile 1 1 50
  44. if RC ~= 0 then do
  45.         adpro_to_front
  46.     okay1 "Error Reloading" TheFile
  47.     exit
  48. end
  49. operator "color_to_gray" 2990 5880 1130
  50. contrast 50
  51. sformat "IFF"
  52. if OutFile = "SAME" then
  53.     save TheFile "RAW"
  54. else
  55.     save OutFile""right(SaveNum,3,'0') "RAW"
  56. exit
  57.  
  58. Locate_ADPro:
  59.     if (POS('ADPro',SHOW('Ports')) = 0)
  60.     then do
  61.         address command 'run < nil: > nil: adpro:adpro MAXMEM=5000000'
  62.         address command 'wait 4'
  63.     end
  64. return
  65.  
  66.  
  67.